Bài này làm sao thế mấy anh, chị ơi!
Giúp em với!
Viết chương trình tính tổng sau
S=1+2+3+...+n sao cho tổng S nhỏ nhất >500 ( với n là số nguyên được nhập từ bàn phím)
Lưu ý: viết chương trình sử dụng câu lệnh while .. do, for..do và biến mảng.
Viết chương trình tính tổng sau: S=1+2+3+...+n. Sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
a, Sử dụng NNLT Python để viết chương trình tính tổng s=2+4+6+…+n, với n nhập từ bàn phím.
b, Sử dụng NNLT Python để viết chương trình tính tổng s=1+3+5+…+n, với n nhập từ bàn phím.
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Viết chương trình tính tổng
S=1+1/2+1/3+....+1/n
Với n là số nguyên được nhập từ bàn phím.
Uses crt;
var n,i,s: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=s+1/i;
writeln(s);
readln;
end.
em hãy viết chương trình tìm số n sao cho tổng các số từ 1 đến n nhỏ nhất và lớn hơn 1000 (biết số nguyên n được nhập từ bàn phím)
giúp mình với mai mình thi rồi ạaaaa
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
Viết chương trình tính tổng S = 1+2+3+...+1/n. Trong đó n là số nguyên được nhập từ bàn phím
Sửa đề: S=1/1+1/2+1/3+...+1/n
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
program tong;
uses crt;
var n,i:integer;
t:longint;
begin
clrscr;
write('nhap n:'); readln(n);
t:=0;
for i:=1 to n do
t:=t+1/i;
writeln(t);
readln;
end.
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.